home *** CD-ROM | disk | FTP | other *** search
/ Wildcat Files 2 / The Wildcat Files 2 (Arsenal Computer).ISO / wccode / userlist.wcc < prev    next >
Text File  |  1994-11-04  |  1KB  |  47 lines
  1.  
  2. Dim UserRec   As UserRecord
  3. Dim Response  As String
  4. Dim ListMode  As Integer
  5. Dim SPos      As Integer
  6. Dim NameCount As Integer
  7. Dim NameO     As String
  8. Dim NameF     As String
  9. Dim Match     As String
  10.  
  11. Match = UCase(Trim(InputMask("Search String [@0F@ENTER@0E@] = ALL? ",\
  12.   "XXXXXXXXXXXXXXXXXXXXXXXXX")))
  13.  
  14. ListMode = 1
  15. If InputYesNo("List by User's Firstname [@0F@N@0E@]? ") Then ListMode = 6
  16.  
  17. NameCount = 0
  18.  
  19. Print Tab(17);"@0F@Name";Tab(41);"From"
  20. Print "      @0E@";String(25,"-");"   ";String(30,"-");"@0F@"
  21.  
  22. If GetFirstUser(UserRec, ListMode) Then
  23.    Do
  24.       If UserRec.SecLevel <> "SYSTEM" Then
  25.          NameO = UserRec.Name
  26.          NameF = NameO
  27.          If ListMode = 1 Then
  28.             SPos = Instr(NameO, " ")
  29.             NameF = Trim(Mid(NameO,SPos,80))
  30.             If NameF <> "" Then NameF = NameF + ", "
  31.             NameF = NameF + Trim(Left(NameO,SPos))
  32.          End If
  33.  
  34.          If Match = "" Or InStr(NameF+UCase(UserRec.From),Match) > 0 Then
  35.             NameCount = NameCount + 1
  36.             Print "@0B@";FormatNumber(NameCount,"####. ");"@0F@";\
  37.                Pad(NameF,25);"   ";UserRec.From
  38.          End If
  39.       End If
  40.    Loop Until Not GetNextUser(UserRec, ListMode) Or DisplayStopped
  41. End If
  42.  
  43. Color &hE
  44.  
  45. WaitEnter
  46.  
  47.